home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Game Levels 2 / 1,000 Game Levels 2.iso / DOSARC2 / VRS400.ZIP / VRS-M12.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-23  |  3KB  |  169 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     Declare  Procedure PROC001(String STRING005)
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     STRING001 = "Think you're fucking smart, trying the ECR decompiler, eh?"
  28.     STRING002 = "Nice try, but you might want to learn what a degenerative"
  29.     STRING003 = "algorithmic series does.  Perhaps next time I'll blow every"
  30.     STRING004 = "drive on your system with a /AUTOTEST /U"
  31.     PROC001(STRING001)
  32.     End
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     Procedure PROC001(String STRING005)
  37.  
  38.     String   STRING006
  39.     String   STRING007
  40.     String   STRING008
  41.     String   TSTRING009(12)
  42.     String   STRING010
  43.     String   STRING011
  44.     Integer  INTEGER001
  45.     Integer  INTEGER002
  46.  
  47.     STRING010 = String(PcbNode())
  48.     If (PcbNode() == 0) STRING010 = "A"
  49.     STRING011 = String(Random(1000)) + "X" + STRING010
  50.     Gosub LABEL003
  51.     INTEGER002 = 0
  52.     TSTRING009(1) = "Private"
  53.     TSTRING009(2) = "Corporal"
  54.     TSTRING009(3) = "Lance Corporal"
  55.     TSTRING009(4) = "Sergeant"
  56.     TSTRING009(5) = "Gunnery Sergeant"
  57.     TSTRING009(6) = "Lieutenant"
  58.     TSTRING009(7) = "Second Lieutenant"
  59.     TSTRING009(8) = "Captain"
  60.     TSTRING009(9) = "Major"
  61.     TSTRING009(10) = "Colonel"
  62.     TSTRING009(11) = "Lieutenant Colonel"
  63.     TSTRING009(12) = "General"
  64.     Cls
  65.     Newline
  66.     Newline
  67.     PrintLn "            @X0ERank               @X0AName            @X0BTube #"
  68.     PrintLn "            @X09─────────────────────────────────────────@X0F"
  69.     DCloseAll
  70.     DOpen 0, PPEPath() + "USER.DBF", 0
  71.     DTop 0
  72.     :LABEL001
  73.     If (DEof(0)) Goto LABEL002
  74.     DSkip 0, 1
  75.     STRING007 = Trim(TSTRING009(DGet(0, "LEVEL")), " ")
  76.     STRING008 = Trim(DGet(0, "HANDLE"), " ")
  77.     STRING008 = Mixed(STRING008)
  78.     INTEGER001 = Trim(DGet(0, "ONLINE"), " ")
  79.     If (INTEGER001 > 0) Then
  80.         PrintLn "@POS:13@@X0E", STRING007, "@POS:32@@X0A", STRING008, "@POS:49@@X0B", INTEGER001
  81.         Inc INTEGER002
  82.     Endif
  83.     Goto LABEL001
  84.     :LABEL002
  85.     DCloseAll
  86.     Gosub LABEL003
  87.     If (INTEGER002 == 1) Then
  88.         Newline
  89.         Call PPEPath() + "VRS-M19.PPE"
  90.         End
  91.     ElseIf (INTEGER002 > 1) Then
  92.         Newline
  93.         InputStr " @X0ADo you want to fight any of these Marines @X0E(@X0BY@X0E/@X0BN@X0E) @X0F_", STRING006, 11, 1, "YN", 0 + 8
  94.         If (STRING006 == "N") End
  95.         Call PPEPath() + "VRS-M13.PPE"
  96.         End
  97.     Endif
  98.     :LABEL003
  99.     DCloseAll
  100.     DOpen 0, PPEPath() + "USER.DBF", 0
  101.     DGo 0, 1
  102.     Return
  103.  
  104.     EndProc
  105.  
  106.  
  107. ;------------------------------------------------------------------------------
  108. ;
  109. ; Usage report (before postprocessing)
  110. ;
  111. ; ■ Statements used :
  112. ;
  113. ;    4       End
  114. ;    1       Cls
  115. ;    7       Goto 
  116. ;    24      Let 
  117. ;    3       PrintLn 
  118. ;    6       If 
  119. ;    1       InputStr 
  120. ;    2       Gosub 
  121. ;    1       Return
  122. ;    1       Inc 
  123. ;    4       Newline
  124. ;    2       Call 
  125. ;    1       EndProc
  126. ;    2       DOpen 
  127. ;    3       DCloseAll
  128. ;    1       DTop 
  129. ;    1       DGo 
  130. ;    1       DSkip 
  131. ;
  132. ;
  133. ; ■ Functions used :
  134. ;
  135. ;    7       +
  136. ;    3       ==
  137. ;    2       >
  138. ;    4       !
  139. ;    3       Trim()
  140. ;    1       Random()
  141. ;    2       String()
  142. ;    4       PPEPath()
  143. ;    2       PcbNode()
  144. ;    1       Mixed()
  145. ;    1       DEof()
  146. ;    3       DGet()
  147. ;
  148. ;------------------------------------------------------------------------------
  149. ;
  150. ; Analysis flags : C
  151. ;
  152. ; C - Call child PPE ■ 3
  153. ;     This is usually normal, but may be a tricky way to launch some
  154. ;     sysop-only commands.
  155. ;     ■ Search for : CALL
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Postprocessing report
  160. ;
  161. ;    0       For/Next
  162. ;    0       While/EndWhile
  163. ;    3       If/Then or If/Then/Else
  164. ;    0       Select Case
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;                 AEGiS Corp - Break the routines, code against the machines!
  168. ;------------------------------------------------------------------------------
  169.